library(plotly)
library(data.table)
library(tidyr)
library(knitr)
library(heatmaply)
All genres:
## [1] "Satire" "SciFi" "Drama" "Action"
## [5] "Romance" "Mystery" "Horror" "Self.help"
## [9] "Health" "Guide" "Travel" "Children.s"
## [13] "Religion" "Science" "History" "Math"
## [17] "Anthology" "Poetry" "Encyclopedias" "Dictionaries"
## [21] "Comics" "Art" "Cookbooks" "Diaries"
## [25] "Journals"
## [1] TRUE
data.tablehead(books_dt)
## genreA genreB customers
## 1: Satire Satire 3798
## 2: SciFi Satire 423
## 3: Drama Satire 19
## 4: Action Satire 343
## 5: Romance Satire 505
## 6: Mystery Satire 227
## [1] 2.332187
column sum and 2*diagonal value{genreA=<genre>, genreB=NA, customers={2*diagonal-colSum}}